NeXT Education Software Sampler 1992 Fall/NeXT Education Software Sampler 1992 Fall.iso/SoundAndMusic/cmix/lib/ballpole.c

C/C++ Source or Header | 1989-02-25 | 408 b | 18 lines

float *
ballpole(x,jcount,npoles,past,c,out,nvals)
float *x,*past,*c,*out;
long  *jcount,npoles,nvals;
{
    int i,j,nfint;
    float *retval = out;
    float temp;
    for(i=0;i<nvals;++i){
        temp = *x++;
        for(j= *jcount, nfint=0;  nfint<npoles;  nfint++,j++)
            temp += (*(c+nfint) * *(past+j));
        *out++ =  *(past+ *jcount) = *(past+*jcount+npoles) = temp;
        *jcount = (*jcount + 1) % npoles;
        }
    return(retval);
}